<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admgroupliste.php,v $ 
 * $Date: 2005/08/29 13:21:56 $ 
 * $Revision: 1.2 $ 
 * 
 * ********* CVS HEADER ********* 
 */
require_once("module/TPLN/TPLN.php"); 
$TPLN = new TPLN; 
$TPLN->Open($op_basepath."tpl/admgroupliste.html"); 
$TPLN->IncludeFile("header","environnement/$session[environnement]/header.php"); 
$TPLN->IncludeFile("footer","environnement/$session[environnement]/footer.php");

require_once(get_path_module("admin")); 
$pc = new panneau_controle(); 
$pc->calculRubriqueParFonction($op); 
$TPLN->Parse("panneau_controle",$pc->retourneEntete());

$query="SELECT groupe.id AS id_groupe,groupe.nom AS nom,groupe.description AS description,environnement.nom AS environnement FROM groupe,environnement WHERE groupe.id_environnement=environnement.id GROUP BY groupe.id";
$result=rportalrequete($query) or rportalerreur($query,"?op=");

if(rportalnbresult($result)==0){
    $TPLN->EraseBloc("bloc1");
}else{
    $class="liste_impaire"; 
    while($row=rportalligne($result)){
        
        $TPLN->Parse("bloc1.argid",$row['id_groupe']);        
        $TPLN->Parse("bloc1.nom",$row['nom']);
        $TPLN->Parse("bloc1.description",$row['description']);
        $TPLN->Parse("bloc1.environnement",$row['environnement']);        
        $TPLN->Parse("bloc1.classe",$class);
        
        if($class!="liste_impaire") 
        { 
            $class="liste_impaire"; 
        }else{ 
            $class="liste_paire"; 
        }
        $TPLN->Loop("bloc1");
    }
}

$TPLN->Write();
?>